home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / Software / Trial / AceHTML Pro 6.6 / acehtml6pro.exe / scriptdef / Air Distances.sd < prev    next >
Encoding:
INI File  |  2006-09-13  |  7.4 KB  |  224 lines
  1. [SUBJECT]
  2. Description=Calculate the air distances between selected world cities
  3. ImageIndex=-1
  4. Folder=Mathematics
  5.  
  6.  
  7. [HEAD_TEXT]
  8. ;<!-- Cut-N-Paste JavaScript from ISN Toolbox 
  9. ;     Copyright 1996, Infohiway, Inc.  Restricted use is hereby
  10. ;     granted (commercial and personal OK) so long as this code
  11. ;     is not *directly* sold and the copyright notice is buried
  12. ;     somewhere deep in your HTML document.  A link to our site
  13. ;     http://www.infohiway.com is always appreciated of course,
  14. ;     but is absolutely and positively not necessary. ;-)   -->
  15. ;<script language="JavaScript">
  16. ;<!-- Hide from JavaScript-Impaired Browsers
  17. ;var l=0;
  18. ;var r=0;
  19. ;var tc="";
  20. ;var al=" abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123456789";
  21. ;var ns="0123456789";
  22. ;function iA(){
  23. ; this.length=iA.arguments.length;
  24. ; for (var i=0;i<this.length;i++){
  25. ;  this[i]=iA.arguments[i];
  26. ; }
  27. ;}
  28. ;/* 3011 byte database of air distances uses position in the
  29. ;   string "al" to substitute for the numerics, saving a bit
  30. ;   over 4k download to visitors. */
  31. ;var a=new iA(35);
  32. ;a[0]="Berlin, Germany*   ciagchdcheihh dadeee gcaa hdef egeghfaci"
  33. ;+"ibf da  cifdcd ebehe eddegagecehadhfaa gcgh e debbfageedkbgdca";
  34. ;a[1]="Bombay, India*   ibga deacde dhabfgh bbiifhgddfhg caefa igb"
  35. ;+"cacggiei dacigddcfbifbffgcgeaihbfchdj dggdcacbdcdaigfhbhf";
  36. ;a[2]="Buenos Aires, Argentina*   jbddbgiaceifkdfgefgegggffibfabk "
  37. ;+"dgbcdfchchec hhegfacchfhhkiggcfefhga abbfic gffialb ihfkd fbffdb";
  38. ;a[3]="Calcutta, India*   f ccgdeebaecg dcfefccdiehaebaieeeie cdeg"
  39. ;+"ibebgddfjaadhib bceagdhedaichde jiigbbbaaagicaig dchf";
  40. ;a[4]="Capetown, South Africa*   fiee hgcgkecebbjccf aiiggecfdahea"
  41. ;+"fbigh jaafdig aehdh edeighfgaacggebee  jb h ff bi gg bbce";
  42. ;a[5]="Darwin, Australia*   ibgbfdecfgcigaahf ghdaihaifi hg eiiffb"
  43. ;+"dh bjcehehcgcgafigbhfciifhaihifgfbcadb hccgccafda";
  44. ;a[6]="Gibraltar*   fhch hahgebga ieidgdhjh efcbdacfced agidic iff"
  45. ;+" abahcchb edgha cfdaedfffegbcfiil fda ";
  46. ;a[7]="Hong Kong, China*   eeddihefceihgbd fidfahghdddh edeeecdj h"
  47. ;+"eifabcdihgfef ck  eggkfafdg ggafeah eheeda";
  48. ;a[8]="Honolulu, Hawaii, USA*   ha bhbgbcbefec eeacghg cdifc  fghe"
  49. ;+"begdce ghgde  f hhaih bfgibfhdicfgachedgajhg";
  50. ;a[9]="Istanbul, Turkey*   ee aeefhdeffi iga a ie aea aebfgead dch"
  51. ;+" fidfdbeffd  hehagf fdifecgeefjffcca";
  52. ;a[10]="Juneau, Alaska, USA*   ddbahdehgh dcbbdecbhea id eddfdfcde"
  53. ;+"bfbbbffcbggf ebegbg i dhggbdd agdhhh ";
  54. ;a[11]="London, England, UK*   eddffgje eedaeecdfdch gaebh bae eba"
  55. ;+"eca aagegg higbfdghegafgdeidkfhdf ";
  56. ;a[12]="Los Angeles, California, USA*   gbggicaedf gbdebhheccc  ef"
  57. ;+" fbegecbehdcafc fcceec iffdhhggedgfgaj b";
  58. ;a[13]="Manilla, Luzon, Phillipines*   cidhhceachdidhbf bjbhffgagg"
  59. ;+"efbhabffekbefdfjicffdaaeadhahfeafegf";
  60. ;a[14]="Melbourne, Australia*   hdbhifjcfgefiici bjd efghffje jedh"
  61. ;+"aiiicg  haie acgfe iaf fh ";
  62. ;a[15]="Mexico City, Mexico*   ffib idcaegaae egaggcgfgbdedfbdggfc"
  63. ;+"ed ebcdh djcag dfi idh";
  64. ;a[16]="Moscow, Russia*   dffd da bfgaaedcf agadbdb fgb adghgieb d"
  65. ;+"bdebddfejbhdbg";
  66. ;a[17]="New York City, New York, USA*   cggcfgbbccfbfhbeei ddbehdh"
  67. ;+"bdbge ibdagcfifcfgdhiegg ";
  68. ;a[18]="Nome, Alaska, USA*   chdeeddegcdcegecdiccgheie hhcfaihcghf"
  69. ;+"aebihgchhba";
  70. ;a[19]="Oslo, Norway*   efi hcdcfbbacbfa hfdhabdgiadeie bfbeebbjig"
  71. ;+"dh ";
  72. ;a[20]="Panama City, Panama*   echhiagaebffdgacbiei bidcfeicbkfihd"
  73. ;+"bgdchbe";
  74. ;a[21]="Paris, France*   ea aihcbdacheg  fhgbediiegeffgf ckgidd ";
  75. ;a[22]="Peking, China*   dehfdbdi jgge ekgged  ffbggacafg eh ";
  76. ;a[23]="Port Said, Suez Canal, Egypt*   ebecbcfbdacbh ifgfeace ieh"
  77. ;+"djbebgc";
  78. ;a[24]="Quebec, Quebec, Canada*   baieaccidee bcefihia fdbibcgdd";
  79. ;a[25]="Reykjavik, Faxa Bay, Iceland*   fabb dgbccfaeefgafedgjgbegf";
  80. ;a[26]="Rio de Janeiro, Brazil*   efiahffhikcdiggkedgceeei";
  81. ;a[27]="Rome, Italy*   gdbeffefhfbcfabkebcga";
  82. ;a[28]="Santiago, Chile*   fbckfejbcjfdegigah";
  83. ;a[29]="Seattle, Washington, USA*   eg h fdghgbdicf";
  84. ;a[30]="Shanghai, China*   bcha if eeig";
  85. ;a[31]="Singapore, Singapore*   cc ebiddh";
  86. ;a[32]="Tokyo, Japan*   egfg d";
  87. ;a[33]="Wellington, New Zealand*   hab";
  88. ;a[34]="Zanzibar City, Tanzania*   ";
  89. ;var b=new iA(4);
  90. ;b[0]=1;
  91. ;b[1]=10;
  92. ;b[2]=100;
  93. ;b[3]=1000;
  94. ;b[4]=10000;
  95. ;function getMiles(form){
  96. ; lf=(document.isn.isn1.options[document.isn.isn1.selectedIndex].value);
  97. ; rf=(document.isn.isn2.options[document.isn.isn2.selectedIndex].value);
  98. ; l=al.indexOf(lf);
  99. ; r=al.indexOf(rf);
  100. ; if (r<l){
  101. ;  l=r;
  102. ;  r=al.indexOf(lf);
  103. ;  }
  104. ; ls=a[l];
  105. ; pos=ls.indexOf("*");
  106. ; ls1="From "+ls.substring(0,pos)+" to "
  107. ; +a[r].substring(0,a[r].indexOf("*"))+" is about ";
  108. ; ls=ls.substring(pos+1,ls.length);
  109. ; tc=ls.substring(((r*3)-(l*3)),ls.length);
  110. ; if (document.isn.rb[1].checked){
  111. ;  dispKm();
  112. ;  }
  113. ; else{
  114. ;  dispMi();
  115. ;  }
  116. ;}
  117. ;function dispMi(){
  118. ; ch=tc.charAt(0);
  119. ; ls1+=al.indexOf(ch);
  120. ; ch=tc.charAt(1);
  121. ; ls1+=al.indexOf(ch);
  122. ; ch=tc.charAt(2);
  123. ; if (ch!=" ")
  124. ; { ls1+=(al.indexOf(ch)*10)+" miles"; }
  125. ;  else ls1+="00"+" miles";
  126. ; document.isn.disp.value=ls1;
  127. ;}
  128. ;function dispKm(){
  129. ; ch=tc.charAt(0);
  130. ; km="";
  131. ; km+=al.indexOf(ch);
  132. ; ch=tc.charAt(1);
  133. ; km+=al.indexOf(ch);
  134. ; ch=tc.charAt(2);
  135. ; if (ch!=" "){
  136. ;  km+=(al.indexOf(ch)*10);
  137. ;  }
  138. ;  else{
  139. ;   km+="00";
  140. ;  }
  141. ;  num=0;
  142. ;  kml=km.length;
  143. ;  for (var i=kml-1;i>-1;i--){
  144. ;   cr=km.substring(i,i+1);
  145. ;   pos=ns.indexOf(cr);
  146. ;   num+=pos*b[kml-i-1];
  147. ;  }
  148. ;  km="";
  149. ;  km+=num*1.613;
  150. ;  pos=km.indexOf(".");
  151. ;  if (pos>-1){
  152. ;   km=km.substring(0,pos);
  153. ;  }
  154. ;  ls1+=km+" kilometers";
  155. ;  document.isn.disp.value=ls1;
  156. ;}
  157. ;// End Hiding -->
  158. ;</script>
  159.  
  160.  
  161.  
  162. [BODY_TEXT]
  163. ;
  164. ;<!-- Your Web Page Content Here -->
  165. ;
  166. ;<form name="isn">
  167. ;<table border="0" width="486" summary="">
  168. ;<tr><td colspan="3" align="center">
  169. ;<hr noshade><font color="blue">
  170. ;<b>`Caption`</b></font></td></tr>
  171. ;<tr><td align="center"><font color="blue">
  172. ;<b>Starting City</b></font><br><select name="isn1" size="12">
  173. ;<script language="JavaScript">
  174. ;<!-- Hide from JavaScript-Impaired Browsers
  175. ;ls="";
  176. ;for (var i=0;i<35;i++){
  177. ; ls+='<OPTION VALUE="'+al.substring(i,i+1)+'" onClick=""';
  178. ; if (i==0){ls+=' SELECTED';}
  179. ; ls+='>'+a[i].substring(0,a[i].indexOf("*"));
  180. ; }
  181. ;document.write(ls);
  182. ;// End hiding -->
  183. ;</script>
  184. ;</select></td>
  185. ;<td align="center" valign="top"><font color="blue" size="1">
  186. ;<b>Instructions:</b></font>
  187. ;<br>Select starting city at left, destination at right.
  188. ;Or, if you are feeling particularly contrary today,
  189. ;vice versa. Then click below.<p>
  190. ;<input type="button" name="but" value=" Get Distance " onClick="getMiles(this.form)">
  191. ;<br><input type="radio" name="rb" value="a" checked onClick="">Miles
  192. ;<input type="radio" name="rb" value="b" onClick="">Kilometers
  193. ;<td align="center"><font color="blue">
  194. ;<b>Destination City</b></font>
  195. ;<br><select name="isn2" size="12">
  196. ;<script language="JavaScript">
  197. ;<!-- Hide from JavaScript-Impaired Browsers
  198. ;ls="";
  199. ;for (var i=0;i<35;i++){
  200. ; ls+='<OPTION VALUE="'+al.substring(i,i+1)+'" onClick=""';
  201. ; if (i==1){ls+=' SELECTED';}
  202. ; ls+='>'+a[i].substring(0,a[i].indexOf("*"));
  203. ; }
  204. ;document.write(ls);
  205. ;// End hiding -->
  206. ;</script>
  207. ;</select></td></tr>
  208. ;<tr><td colspan="3" align="center">
  209. ;<table border="2" summary="">
  210. ;<tr><td>
  211. ;<input type="text" name="disp" value="" size="80">
  212. ;</td></tr>
  213. ;</table></td></tr>
  214. ;<tr><td colspan="3"><hr noshade></td></tr>
  215. ;</table>
  216. ;</form>
  217.  
  218.  
  219. [`Caption`]
  220. Kind=S
  221. Value=Air Distances between Selected World Cities
  222.  
  223.  
  224.